1 '********************
2 '***** LVERSENY *****
3 '*********************
4 'LVERSENY.BAS0 file nvvel
5 PRINT CHR$(12)CHR$(2)CHR$(4)"  L  v e r s e n y  "CHR$(1)
6 CLEAR 500: POKE 16452,183
7 DIM P(10,10),K%(12),LO%(10)
8 PRINT$2,0,"KREM A RSZTVEVK NEVT (max. 8 karakter"
9 FOR I=1 TO 5:PRINT$2+2*I,4,USING"##. jtkos: ";I:NEXT I
10 JA=0
11 FOR I=1 TO 5
12  PRINT$14,4,CHR$(6)STRING$(30,32)
13 PRINT$2+2*I,20,"";
14 INPUT U$(I)
15 IF I=1 AND U$(I)="" THEN PRINT$14,4,CHR$(4)" Krem helyesen megadni ! "CHR$(1)CHR$(7):GOTO 13
16 IF U$(I)<>"" THEN JA=JA+1
17 NEXT I
18 CLS
19 PRINT$0,0,CHR$(5)"";:CC$="Rajtsz. Paripa neve  Eslye ":CC=LEN(CC$):PRINTCC$CHR$(1)
20 FOR I=1 TO 5:S(I)=0:NEXT
21 R=0:FOR A=1 TO 5
22 D(A)=INT(10*RND(0.999)+1):NEXT A
23 FOR A=1 TO 5:R=R+D(A):NEXT A
24 X%=RND(6)+1:IF X%>6 THEN 24
25 ON X% GOSUB 77,80,83,86,89,92
26 FOR I%=1 TO 5:READ A$(I%):NEXT
27 FOR N=1 TO 5
28 R(N)=INT(R/D(N))
29 PRINTUSING"##       %          % ## : 1";N,A$(N),R(N)
30 NEXT N
31 PRINTSTRING$(CC+1,"=")
32 PRINTCHR$(2)CHR$(5)"Krem a tteket !"CHR$(1)
33 FOR J=1 TO JA
34 PRINT$7+J,0,CHR$(6)CHR$(2)USING"%      %";U$(J);:PRINTCHR$(1);
35 PRINT$7+J,16,CHR$(6)STRING$(19,32)
36 PRINT$7+J,16,"";:INPUT"Rajtsz: ";Q(J)
37 IF Q(J)<1 OR Q(J)>5 THEN 34
38 PRINT$J+7,28,"";:INPUT"Tt: ";P(Q(J),J)
39 IF P(Q(J),J)<1 OR P(Q(J),J)>10000 THEN 38
40 SS(J)=SS(J)-P(Q(J),J)
41 NEXT J
42 C=0:V%=0
43 C=VARPTR(K%(0))
44 POKE C,0,0,2,2,62,94,30,20,36,35,0,0,0,0,0,0
45 POKE C+16,0,32,68,108,126,120,120,20,36,35
46 POKE 16459,C-256*INT(C/256),INT(C/256)
47 FOR C=0 TO 5:LO%(C)=3:NEXT C
48 PRINT CHR$(12)CHR$(2)CHR$(4)"  L  v e r s e n y  "CHR$(18)CHR$(20)
49 PRINT$4,41,"C":PRINT$7,41,"":PRINT$10,41,"L"
50 FOR C=35 TO 160:SET(248,C):NEXT C
51 FOR C=1 TO 5:PRINT$2*C+1,0,CCHR$(128)CHR$(130):NEXT C
52 POKE 16443,PEEK(16443) AND 127
53 RANDOM:PRINT CHR$(6)
54 FOR C=0 TO 500:NEXT C
55 GOSUB 74: GOSUB 74:BEEP 50,400
56  V%=RND(5)
57 PRINT$2*V%+1,LO%(V%),CHR$(5)" "CHR$(21)CHR$(128)CHR$(130)
58 BEEP 50+10*V%,3*V%
59 LO%(V%)=LO%(V%)+1%
60 IF LO%(V%)<>39 THEN 56
61 W=V%:BEEP 40,400:
62 PRINT$V%*2+1,0,"Gyztes: "CHR$(2)CHR$(4)" "A$(V%)" "CHR$(1)
63 FOR C=0 TO 2000:NEXT C:PRINT CHR$(22);
64 POKE 16443,PEEK(16443)+128:OUT 0,PEEK(16443)
65 PO=0: FOR J=1 TO JA
66 IF Q(J)=V% THEN PO=PO+1 ELSE 69
67 SS(J)=SS(J)+R(W)*P(W,J)
68 N=Q(J):PRINT$2*V%+2+PO,0,CHR$(6)USING"Gratullok %       % ########, "+CHR$(137)+"-ot nyertl";U$(J),R(N)*P(N,J)
69 NEXT J
70 PRINT$14,5,"Akarsz mg jtszani? (I/N)";
71 O$=INKEY$:IF O$="" THEN 71
72 IF O$="I" THEN 18
73 IF O$<>"I" THEN CLS:PRINT$7,3,CHR$(2)"Ksznm a jtkot!":PRINT:PRINT:PRINT:PRINTCHR$(1):END
74 BEEP 50,50: FOR C=0 TO 100:NEXT C:RETURN
75 END
76 RUN
77 RESTORE 78
78 DATA FASIRT,VIRSLI,TLTOS,SNTA,PATS
79 RETURN
80 RESTORE 81
81 DATA NYIHAHA,GEBE,SZVR,TLTOS,CSIGA
82 RETURN
83 RESTORE 84
84 DATA VIRSLI,RK,HINTAL,NYERETLEN,BETON
85 RETURN
86 RESTORE 87
87 DATA KANCSAL,SNTA,KEHES,HROMLB,CSIGA
88 RETURN
89 RESTORE 90
90 DATA GEBE,KANCSAL,HINTAL,KULLANCS,SAJNOS
91 RETURN
92 RESTORE 93
93 DATA TET,KEHES,SZAMR,VAKSI,LAJHR
94 RETURN
95 CLS:PRINT$0,1,CHR$(2)CHR$(4)" KISS GY. 1987.11."CHR$(1)" (14)":CMDI"LVERSENY.BAS0",S,177,191,B,1,95RUN
